PC-Blue - MS DOS Public Domain Library/PC-Blue MS-DOS Public Domain Library - NYACC.iso/vol354/manage.arc/PROC.PRG

Text File | 1986-05-30 | 1.4 KB | 63 lines

**    Last revision: May 28, 1986 at 17:30
* proc.prg  procedure files
PROC b_first
 CLEA
 @ 2,0 SAY line
 @ 3, 1 SAY "Address:"
 @ 3,55 SAY "Code:"
 @ 4, 4 SAY "City:"
 @ 4,37 SAY "State:"
 @ 4,56 SAY "Zip:"
 @ 6, 1 SAY "Manager:"
 @ 6,54 SAY "Phone:"
 @ 7, 4 SAY "Type:"
 @ 7,44 SAY "Number of Units:"
 @ 9, 0 SAY "Acquired:"
 @ 9,45 SAY "Purchase Price:"
 @ 11,28 SAY "Send Rental Payments To:"
 @ 12,00 SAY "Company:"
 @ 12,54 SAY "Phone:"
 @ 13,01 SAY "Street:"
 @ 14,03 SAY "City:"
 @ 15,00 SAY "Chks To:"
 @ 17, 2 SAY "Notes:"
 @ 18,52 SAY "Updated:"
 @ 19,0 SAY LINE
RETU
PROC t_first
 CLEA
 @ 2,0 SAY LINE
 @ 3, 2 SAY "Tenant:"
 @ 3,56 SAY "Code:"
 @ 4, 4 SAY "Unit:"
 @ 4,26 SAY "Building:"
 @ 5, 1 SAY "Contact:"
 @ 5,55 SAY "Phone:"
 @ 6,09 SAY "Alternate mailing address: "
 @ 7, 1 SAY "Address:"
 @ 8, 4 SAY "City:"
 @ 10, 4 SAY "Type:"
 @ 10,19 SAY "Addl Percentage:"
 @ 10,51 SAY "1st Lease:"
 @ 11,04 SAY "Base:"
 @ 11,50 SAY "Expiration:"
 @ 12, 0 SAY "Security:"
 @ 12,30 SAY "Bank:"
 @ 12,51 SAY "Late Date:"
 @ 13, 4 SAY "Rent:"
 @ 13,25 SAY "Late Chgs:"
 @ 13,51 SAY "Addl Rent:"
 @ 14, 3 SAY "G & E:"
 @ 14,24 SAY "Other Chgs:"
 @ 14,50 SAY "Total Rent:"
 @ 15, 0 SAY "Rent Due:"
 @ 15,23 SAY "Last Paymnt:"
 @ 15,52 SAY "Amt Paid:"
 @ 16,00 SAY "Total Yr:"
 @ 16,30 SAY "Flag:"
 @ 16,55 SAY "Total:"
 @ 18, 3 SAY "Notes:"
 @ 18,54 SAY "Update:"
 @ 19,0 SAY line
RETURN